From 188d4d111de08e375dc28e7d105457116dd1d65e Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Sun, 7 Mar 1993 23:41:34 +0000 Subject: [PATCH] (syms_of_buffer): Make erase-buffer a disabled command. --- src/buffer.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/buffer.c b/src/buffer.c index 28091e763ea..e254db179c7 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -1402,6 +1402,8 @@ init_buffer () /* initialize the buffer routines */ syms_of_buffer () { + extern Lisp_Object Qdisabled; + staticpro (&Vbuffer_defaults); staticpro (&Vbuffer_local_symbols); staticpro (&Qfundamental_mode); @@ -1417,6 +1419,8 @@ syms_of_buffer () Fput (Qprotected_field, Qerror_message, build_string ("Attempt to modify a protected field")); + Fput (intern ("erase-buffer"), Qdisabled, Qt); + /* All these use DEFVAR_LISP_NOPRO because the slots in buffer_defaults will all be marked via Vbuffer_defaults. */ -- 2.30.2